home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern338.d64 / bi001 respirom (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  10KB  |  380 lines
  1. 1 REM
  2. 2 REM BY  J.SWEENEY 1980
  3. 3 REM
  4. 6 DIM AA(55),AB(55),AC(55)
  5. 10 PRINT"[147]
  6. 11 [153]"      TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
  7. 12 PRINT"      [165]                         [167]
  8. 13 [153]"      FNCLOSE                    CLOSECLOSE  THEN
  9. 14 PRINT"      [165] RESPIROMETER EXPERIMENT [167]
  10. 15 [153]"      FN NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW THEN
  11. 16 PRINT"      [165]                         [167]
  12. 17 [153]"      FN                         THEN
  13. 18 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  14. 21 [153]"THIS PROGRAM SIMULATES THE RESPIROMETER
  15. 22 PRINT"EXPERIMENT . IN THIS EXPERIMENT THE WAY
  16. 23 [153]"IN WHICH A MAGGOT USES ITS OXYGEN SUPPLY
  17. 24 PRINT"IS INVESTIGATED .
  18. 26 [141]4000
  19. 51 AA(1)[178]0
  20. 52 AA(2)[178]3
  21. 53 AA(3)[178]4.6
  22. 54 AA(4)[178]6
  23. 55 AA(5)[178]7
  24. 56 AA(6)[178]7.5
  25. 57 AA(7)[178]7.8
  26. 58 AA(8)[178]8.0
  27. 59 AA(9)[178]8.1
  28. 100 [141]1000
  29. 150 TM[178]500
  30. 151 [141] 5000
  31. 160 [153]"ONONONONONONONONONONONONONONTHE BASIC APPARATUS CONSISTS OF A TEST
  32. 161 PRINT" TUBE WITH A HOLLOW GLASS ROD THROUGH
  33. 162 [153]"               THE BUNG
  34. 170 TM=5000
  35. 171 GOSUB5000
  36. 174 PRINT"[145][145][145][145][145]      THIS GLASS ROD IS GRADUATED .   "
  37. 175 PRINT"   THE MARKING USUALLY STARTS FROM THE         "
  38. 176 PRINT"           RIGHT HAND SIDE .               "
  39. 177 FOR G=1TO1000 : NEXT G
  40. 179 PRINT"[163][207][163][207][163][207][163][207][163][207][163][207][163][207][163][207][163][207][163][207]"
  41. 180 PRINT" 9 8 7 6 5 4 3 2 1 0"
  42. 181 FOR G=1TO4000 : NEXT G
  43. 182 GOSUB 5500
  44. 200 GOSUB2000
  45. 201 FOR T=1TO4000 : NEXT T
  46. 210 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]    THE MAGGOT ABSORBS OXYGEN FROM                  "
  47. 212 PRINT"     THE ATMOSPHERE ( SHOWN AS [215] )                             "
  48. 214 PRINT"
  49. 215 [129] T[178]1[164]1500:[130] T
  50. 218 [141]3000
  51. 220 [129] T[178]1[164]2000:[130] T
  52. 240 [153]"ONONONONONONONONONONONONTHE MAGGOT THEN GIVES OFF CARBON DIOXIDE            "
  53. 241 [153]"             ( SHOWN AS * )                                   "
  54. 243 [129]T[178]1[164]1500:[130] T
  55. 250 [141] 3500
  56. 252 [129] T[178]1[164]2000:[130] T
  57. 255 [153]"ONONONONONONONONONON  THE MAGGOT ABSORBS OXYGEN AND GIVES         "
  58. 258 [153]"          OFF CARBON DIOXIDE                                    "
  59. 260 [129]T[178]1[164]2500:[130] T
  60. 261 [153]"
  61. 262 GOSUB3000
  62. 263 PRINT"[145][145][145][145][145][145][145][145][145]
  63. 264 [129]T[178]1[164]1000:[130]T
  64. 265 [141]3500
  65. 266 [129]T[178]1[164]1500:[130]T
  66. 269 [153]"ONONONONONONONONONONONON
  67. 270 PRINT"    SODA LIME IS ADDED TO ABSORB                       "
  68. 272 PRINT"         THE CARBON DIOXIDE                                       "
  69. 275 FORT=1TO2500:NEXTT
  70. 280 PRINT"
  71. 281 [153]"  *RND
  72. 282 PRINT"     [146]
  73. 283 [153]"O      WAIT
  74. 285 FORT=1TO3500:NEXT T
  75. 287 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]    THE SODA LIME ABSORBS ANY CARBON                   "
  76. 288 PRINT"       DIOXIDE WHICH IS GIVEN OFF                  "
  77. 290 FOR T=1TO2500 : NEXT T
  78. 291 PRINT"
  79. 292 [141]3000
  80. 293 [153]"ONONONONONONONONON
  81. 294 FORT=1TO1000:NEXTT
  82. 295 GOSUB3500
  83. 296 PRINT"*
  84. 297 [129]T[178]1[164]1000:[130]T
  85. 298 [153]"ON "
  86. 300 [129]T[178]1[164]1000:[130]T
  87. 311 [153]""
  88. 312 [141]3000
  89. 315 [129] T[178]1[164]1000:[130]T
  90. 317 [153]"ONONONONONONONONONON
  91. 319 GOSUB3500
  92. 360 PRINT"*
  93. 361 [129]T[178]1[164]1000:[130]T
  94. 362 [153]"ON "
  95. 400 [153]"ONONONONONONONONONONON  THE END OF THE TUBE IS NOW SEALED                      "
  96. 405 [153]"    USING A DROP OF COLOURED WATER                      "
  97. 408 [129]T[178]1[164]2500:[130] T
  98. 410 [153]" INT"
  99. 500 [153]"ONONONONONONONONONONON FOOD + OXYGEN -> CARBON-DIOXIDE      "
  100. 502 [153]"CARBON-DIOXIDE -> ABSORBED BY SODA LIME
  101. 504 PRINT"THE COLOURED WATER MOVES ALONG THE TUBE                         "
  102. 510 FORT=1TO2500:NEXT T
  103. 520 PRINT"
  104. 522 [141]3000
  105. 523 [129]T[178]1[164]1000:[130]T
  106. 524 [153]"ONONONONONONONONON
  107. 526 GOSUB3500
  108. 529 IFZX=2GOTO600
  109. 530 PRINT"         "
  110. 535 PRINT"[145][181]           "
  111. 540 ZX=2
  112. 541 FOR T=1TO1000:NEXT T
  113. 545 GOTO522
  114. 600 PRINT"[181]             "
  115. 610 PRINT"
  116. 615 [141]4000
  117. 620 [141] 7000
  118. 650 [153]"LOAD  THE RATE AT WHICH MAGGOTS USE THEIR           "
  119. 651 [153]"     OXYGEN SUPPLY DEPENDS UPON THE       "
  120. 652 [153]"    TEMPERATURE OF THEIR SURROUNDINGS     "
  121. 653 [153]"         O"
  122. 655 [153]"BELOW -10 C THEY WILL DIE "
  123. 656 [153]"                 O"
  124. 657 [153]"BETWEEN -10 AND 8 C THEY ARE INACTIVE "
  125. 658 [153]"            O"
  126. 659 [153]"FROM 8 -> 35 C THEY ARE ACTIVE  "
  127. 660 [153]"                 O"
  128. 661 [153]"BETWEEN 35 AND 45 C THEY HAVE PROBLEMS"
  129. 662 [153]"        O"
  130. 663 [153]"ABOVE 45 C THEY WILL DIE "
  131. 664 [153]"ONONON
  132. 665 GOSUB4000
  133. 670 PRINT"[147]
  134. 675 [153]"  (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)"
  135. 676 [153]"  FN                          O  THEN"
  136. 677 [153]"  FNTHE IDEAL RANGE IS 8 TO 35 C THEN"
  137. 678 [153]"  FN                             THEN"
  138. 679 [153]"  (null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR"
  139. 680 [153]"
  140. 681 PRINT"TYPE IN A VALUE FOR THE TEMPERATURE"
  141. 682 PRINT"
  142. 685 [133] T
  143. 686 T [178] [181](T)
  144. 700 [139] T[179][171]273 [167] [141]6200
  145. 705 [139] T[179][171]273 [137]675
  146. 710 [139] T[179][171]10 [167] [141] 6000
  147. 711 [139] T[179][171]10 [137] 675
  148. 715 [139] T[179]8 [167] [141] 6100
  149. 716 [139] T[179]8 [137] 675
  150. 720 [139] T[179]36 [167] [141] 6500
  151. 721 [139] T[179]36 [137] 6565
  152. 725 [139] T[179]45 [167] [141] 6700
  153. 726 [139] T[179]45 [137] 675
  154. 730 [139] T[177]45 [167] [141] 6900
  155. 731 [139] T[177]45 [137] 675
  156. 800 [153]"LOAD
  157. 801 AC(1)=2.61
  158. 802 AC(2)=5.41
  159. 803 AC(3)=8.42
  160. 804 AC(4)=10.1
  161. 805 AC(5)=10.8
  162. 806 AC(6)=11.1
  163. 807 AC(7)=11.3
  164. 808 AC(8)=11.4
  165. 809 AC(9)=11.5
  166. 810 AC(10)=11.6
  167. 811 AC(11)=11.6
  168. 812 AC(12)=11.5
  169. 813 AC(13)=11.3
  170. 814 AC(14)=11.1
  171. 820 PRINT"    THE EFFECT OF TEMPERATURE UPON          "
  172. 821 PRINT"  RESPIRATION CAN BE EXAMINED ANOTHER        "
  173. 822 PRINT" WAY . THIS CONSISTS OF EXAMINING THE            "
  174. 823 PRINT"AMOUNT OF OXYGEN USED IN 20 SECONDS AT            "
  175. 824 PRINT"       DIFFERENT TEMPERATURES           "
  176. 826 GOSUB 4000
  177. 827 PRINT"[147][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  178. 828 PRINT"                  [161]"
  179. 829 PRINT"                  [161]"
  180. 830 PRINT" TEMP   VOLUME    [161]    TEMP   VOLUME "
  181. 831 PRINT" [162][162][162][162]   [162][162][162][162][162][162]    [161]    [162][162][162][162]   [162][162][162][162][162][162] "
  182. 832 PRINT"                  [161]"
  183. 833 SD=10
  184. 834 FOR G=1TO7
  185. 836 PRINT" " SD "   " AC(G)"    [161]    " SD+14"   " AC(G+7)
  186. 837 PRINT"                  [161]"
  187. 838 SD=SD+2
  188. 839 NEXT G
  189. 840 PRINT"                  [161]"
  190. 841 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  191. 842 PRINT"[145][145][145][145]
  192. 845 [141]4000
  193. 900 [153]"LOAD
  194. 901 PRINT"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]"
  195. 902 PRINT"[165]                                   [160][167]"
  196. 903 PRINT"[165]TO REPEAT THE WHOLE PROGRAM PRESS R [167]"
  197. 904 PRINT"[165]                                    [167]"
  198. 905 PRINT"[165]                                    [167]"
  199. 906 PRINT"[165]    TO STOP THE PROGRAM PRESS S     [167]"
  200. 908 PRINT"[165]                                    [167]"
  201. 909 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186] "
  202. 910 PRINT"
  203. 920 [129] H[178]1[164]100000000
  204. 922 N[178][194](151)
  205. 923 [139] N[178]55[137]10
  206. 924 [139] N[178]40